Attribute VB_Name = "TestMeasure"
Option Explicit



Public Sub TestMeasure()

    '
    ' TestMeasure Macro
    '
    Dim message As Integer
    Call SetPublicVariables.SetPublicVariables
    '
    ' check singal name
    '
    If p_sheet.Cells(p_row, 1).Value = "" Then
        MsgBox "Not found Singal Name"
        Exit Sub
    End If

    p_bar_name = CommandBars.ActionControl.Parameter  ' "Test Row" or "Test Measure"
    If p_bar_name = "Test Row" Then
        message = MsgBox(p_bar_name & ": " & p_row, vbYesNo, p_sheet.Name & " Sheet")
    ElseIf p_bar_name = "Test Measure" Then
        message = MsgBox(p_bar_name & ": " & p_address, vbYesNo, p_sheet.Name & " Sheet")
    End If
    
    
    If message = vbYes Then
        If Sheets("OSC_Config").Range("A1") = "" Then
            Call OscConfig.SetOsc
        End If
        
        Call OscConfig.SetMeasure
        
        Call RunCommand.RunCommand
        
        'Call OscConfig.InsertHyperlinks
        
    End If

End Sub



